Learn R Programming

epiDisplay (version 3.5.0.2)

Outbreak investigation: Dataset from an outbreak of food poisoning on a sportsday, Thailand 1990.

Description

This dataset contains information from an outbreak investigation concerning food poisoning on a sportsday in Thailand 1990.

Dichotomous variables for exposures and symptoms were coded as follow:

0 = no
1 = yes
9 = missing or unknown

Usage

data(Outbreak)

Arguments

Format

A data frame with 1094 observations on the following 13 variables.

id

a numeric vector

sex

a numeric vector

lll 0 = female 1 = male

age

a numeric vector: age in years

lll 99 = missing

exptime

an AsIs or character vector of exposure times

beefcurry

a numeric vector: whether the subject had eaten beefcurry

saltegg

a numeric vector: whether the subject had eaten salted eggs

eclair

a numeric vector: pieces of eclair eaten

lll 80 = ate but could not remember how much 90 = totally missing information

water

a numeric vector: whether the subject had drunk water

onset

an AsIs or character vector of onset times

nausea

a numeric vector

vomiting

a numeric vector

abdpain

a numeric vector: abdominal pain

diarrhea

a numeric vector

References

Thaikruea, L., Pataraarechachai, J., Savanpunyalert, P., Naluponjiragul, U. 1995 An unusual outbreak of food poisoning. Southeast Asian J Trop Med Public Health 26(1):78-85.

Examples

Run this code
# NOT RUN {
data(Outbreak)
.data <- Outbreak
# Distribution of reported pieces of eclair taken
attach(.data)
tab1(eclair) 

# Defining missing value
.data$eclair[.data$eclair > 20] <- NA
detach(.data)
attach(.data)
pieces.of.eclair <- cut(eclair, c(0,1,2,20), include.lowest=TRUE, right=FALSE)
tabpct(pieces.of.eclair, diarrhea)
rm(list=ls())
detach(.data) 
# }

Run the code above in your browser using DataLab